﻿Public MustInherit Class HttpBrowserBase

    Private _debug As Boolean
    Public Property Debug() As Boolean
        Get
            Return _debug
        End Get
        Set(ByVal value As Boolean)
            _debug = value
        End Set
    End Property

    Private _debugFolder As String
    Public Property DebugFolder() As String
        Get
            Return _debugFolder
        End Get
        Set(ByVal value As String)
            _debugFolder = value
        End Set
    End Property

    Public Delegate Sub PostRequestDelegate(ByVal Response As String)
    Private _postRequestActions As PostRequestDelegate
    Public Property PostRequestActions() As PostRequestDelegate
        Get
            Return _postRequestActions
        End Get
        Set(ByVal value As PostRequestDelegate)
            _postRequestActions = value
        End Set
    End Property



    Public Enum MethodEnum
        PostMethod
        GetMethod
    End Enum

    Public MustOverride Function SendRequest(ByVal URL As String, ByVal Method As MethodEnum, ByVal DumpID As String) As String

    Public MustOverride Function SendRequest(ByVal URL As String, ByVal Method As MethodEnum, ByVal Content As String, ByVal DumpID As String) As String

    Public MustOverride Sub DumpResponse(ByVal ID As String, ByVal Content As String)

End Class